home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Macintosh Graphics Primer / Macintosh Graphics Primer / card_54830.txt < prev    next >
Text File  |  1990-12-05  |  6KB  |  219 lines
  1. -- card: 54830 from stack: in
  2. -- bmap block id: 13197
  3. -- flags: 0000
  4. -- background id: 2792
  5. -- name: intro 17
  6. ----- HyperTalk script -----
  7. on closecard
  8.   global maploc, cardloc
  9.   put word 1 of the short name of this card into maploc
  10.   put word 2 of the short name of this card into cardloc
  11.   put "yes" into line 3 of fld "footprints" of card "map"
  12. end closecard
  13.  
  14.  
  15.  
  16. -- part 4 (button)
  17. -- low flags: 00
  18. -- high flags: 2000
  19. -- rect: left=457 top=317 right=342 bottom=485
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 18612 / 18612
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: next
  28. ----- HyperTalk script -----
  29. on mouseUp
  30.   visual dissolve
  31.   go next
  32. end mouseUp
  33.  
  34.  
  35.  
  36. -- part 5 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=428 top=317 right=342 bottom=456
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 18611 / 18611
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: prev
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   visual effect scroll right
  51.   go prev
  52. end mouseUp
  53.  
  54.  
  55.  
  56. -- part 7 (button)
  57. -- low flags: 00
  58. -- high flags: 2000
  59. -- rect: left=484 top=317 right=342 bottom=512
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 18613 / 18613
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: return
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   pop card into lastPush
  71.   if the short name of this stack is not in lastPush then
  72.     visual dissolve
  73.     go card "Map"
  74.   else
  75.     visual dissolve
  76.     go lastPush
  77.   end if
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 8 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=248 top=268 right=286 bottom=335
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: New Button
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   go card "intro 18"
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 9 (button)
  102. -- low flags: 00
  103. -- high flags: 0000
  104. -- rect: left=248 top=285 right=303 bottom=341
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: New Button
  113. ----- HyperTalk script -----
  114. on mouseUp
  115.   go card "intro 19a"
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 10 (button)
  121. -- low flags: 00
  122. -- high flags: 0002
  123. -- rect: left=392 top=320 right=338 bottom=426
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 1500 / 1500
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Start-Up
  132. ----- HyperTalk script -----
  133. on mouseDown
  134.   global NAV_PATH, SYS_PATH, GTRACKINGDISABLED
  135.  
  136.   put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  137.  
  138.   -- simulate hiliting of two small buttons
  139.   repeat until the mouse is up
  140.     ---find out WHERE on the icon you clicked
  141.     put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  142.     if the mouseLoc is within the rect of the target then
  143.       if whereInBtn < 0 then
  144.         set icon of me to 1501
  145.       else
  146.         set icon of me to 1502
  147.       end if
  148.     else   -- outside of the button, reset default icon
  149.       set icon of me to 1500
  150.     end if
  151.   end repeat
  152.   set icon of me to 1500
  153.   if the mouseloc is not within the rect of me then exit mouseDown
  154.  
  155.   if whereInBtn < 0 then
  156.     --- the click was on the left so go to send feedback if it exists
  157.     if (GTRACKINGDISABLED = empty) or (GTRACKINGDISABLED = true) then
  158.       answer "‚ÄúCD Preferences‚Äù has not been installed." with "OK"
  159.       exit mouseDown
  160.     end if
  161.     --
  162.     if (GTRACKINGDISABLED = "Disabled") then
  163.       answer "The feedback mechanism has been disabled." with "OK"
  164.       exit mouseDown
  165.     end if
  166.     --
  167.     push card
  168.     put SYS_PATH & "CD Preferences" into feedPath
  169.     set cursor to watch
  170.     visual effect dissolve fast
  171.     go stack feedPath
  172.   else if whereInBtn > 0 then
  173.     -- if the click was on the right then go back to navigation stack
  174.     visual effect iris close to black
  175.     visual effect iris open
  176.     if NAV_PATH = empty then put "cd welcome of stack" && "the ‚ÄúNavigation Stack‚Äù" into NAV_PATH
  177.     -- make a prompt for "where is" if the global is empty
  178.     go NAV_PATH
  179.   end if
  180. end mouseDown
  181.  
  182. on mouseUp
  183.   -- kill any mouseups
  184. end mouseUp
  185.  
  186.  
  187.  
  188. -- part contents for background part 9
  189. ----- text -----
  190. Macintosh Graphics Primer
  191.  
  192. -- part contents for background part 4
  193. ----- text -----
  194. The Basics of Color
  195.  
  196. -- part contents for background part 13
  197. ----- text -----
  198. How Colors are Displayed on Screen
  199.  
  200. -- part contents for background part 5
  201. ----- text -----
  202.  
  203. A display's cathode ray tube (CRT) uses the additive primary    
  204.                                 colors of red, green and blue (RGB).  
  205.                                 They are called additives because adding 
  206.                                 equal amounts of red, green and blue 
  207.                                 together produces a white display.  Adding 
  208.                                 equal but lesser amounts of each produces 
  209.                                 various shades of gray.
  210.  
  211.                                 To produce colors, all CRTs emit light.                                         
  212.                                 There are two main types of CRT displays:
  213.  
  214.                                        ‚Ä¢ Dot-Triads*
  215.                                        ‚Ä¢ RGB Stripes*
  216.  
  217. -- part contents for background part 11
  218. ----- text -----
  219. intro15